home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / biz / dopus / FirstSel.lha / FirstSel / deutsch / ARexx / FirstSelSource.dopus5 < prev   
Text File  |  1999-01-31  |  1KB  |  58 lines
  1. /*
  2.  * $VER: FirstSelSource.dopus 1.0 (28-01-99)
  3.  * © Olaf Kirstein, Freeware
  4.  *
  5.  * Liefert den kompletten Pfad des ersten angewählten Files im Quelllister (3 l's ?).
  6.  * Aufruf von DOpus5:
  7.  *    DOpus5:ARexx/FirstSelSource.dopus5 {Qp}
  8. */
  9.  
  10. options results
  11. parse arg dopusport
  12.  
  13. if dopusport="" then do
  14.     if ~show("P","DOPUS.1") then do
  15.         say "Port nicht angegeben. DOPUS.1 wurde gesucht, aber nicht gefunden."
  16.         exit 10
  17.         end
  18.     else
  19.         dopusport="DOPUS.1"
  20.     end
  21.  
  22. if ~show("P",dopusport) then do
  23.     say "Port" dopusport "nicht gefunden."
  24.     exit 10
  25.     end
  26.  
  27. address value dopusport
  28.  
  29. options failat 21
  30. lister query source
  31. if rc~=0 then do
  32.     dopus request '"Kein Quelllister vorhanden" Abbruch'
  33.     exit 10
  34.     end
  35. sourcelister=result
  36. options failat 10
  37. lister query sourcelister path; sourcepath=result
  38. lister query sourcelister firstsel; sourcefile=result
  39.  
  40. if sourcefile="" then do
  41.     lister request sourcelister '"Nichts im Quelllister angewählt." Abbruch'
  42.     exit 10
  43.     end
  44.  
  45. lister query sourcelister entry sourcefile stem listerentry
  46.  
  47. if listerentry.type>0 then do
  48.     lister request sourcelister listerentry.name'" ist kein File." Abbruch'
  49.     exit 10
  50.     end
  51.  
  52. lister select sourcelister sourcefile 0
  53.  
  54. lister refresh sourcelister
  55.  
  56. fullname= sourcepath''listerentry.name
  57. say '"'fullname'"'
  58.